100 REM    ***    JOYTEST 64    ***
105 :
110 REM    ***    K.DYBOWSKI    ***
115 :
120 :
125 S$=CHR$(147):PRINTS$:PRINT:INPUT"PORT 1 CZ 2  (1/2) : ";P:C$=CHR$(34)
130 IF P=1 THEN P=56321:GOTO145
135 IF P=2 THEN P=56320:GOTO145
140 GOTO 125
145 P$="WARTOSC "+C$+"NOT PEEK("+RIGHT$(STR$(P),5)+") AND 32"+C$+" = "
150 PRINT S$:GOSUB 265
155 X1=160:Y1=130:X2=197:Y2=90:X3=125:Y3=168:V=53248:S1=V+1:S2=V+2:S3=V+3
160 POKEV+32,6:POKEV+33,1:POKE646,0
165 :
170 POKEV+39,7:POKEV+40,7:POKEV+23,0:POKEV+29,3:POKEV+23,3:POKEV+21,3
175 :
180 A = NOT PEEK(P) AND 31:W=0:POKEV+40,7
185 IF A=0 OR A=16 THEN POKEV,X1:POKES1,Y1:POKES2,X1:POKES3,Y1
190 IF A=>16 THEN W=16:POKEV+40,2:A=(A AND 15)
195 IF A=1 THEN POKEV,X1:POKES1,Y2:POKES2,X1:POKES3,Y2:GOTO240
200 IF A=9 THEN POKEV,X2:POKES1,Y2:POKES2,X2:POKES3,Y2:GOTO240
205 IF A=8 THEN POKEV,X2:POKES1,Y1:POKES2,X2:POKES3,Y1:GOTO240
210 IF A=10 THEN POKEV,X2:POKES1,Y3:POKES2,X2:POKES3,Y3:GOTO240
215 IF A=2 THEN POKEV,X1:POKES1,Y3:POKES2,X1:POKES3,Y3:GOTO240
220 IF A=6 THEN POKEV,X3:POKES1,Y3:POKES2,X3:POKES3,Y3:GOTO240
225 IF A=4 THEN POKEV,X3:POKES1,Y1:POKES2,X3:POKES3,Y1:GOTO240
230 IF A=5 THEN POKEV,X3:POKES1,Y2:POKES2,X3:POKES3,Y2
235 :
240 Z=A+W:IF LEN(STR$(Z))=2 THEN Z$="0"+RIGHT$(STR$(Z),1):GOTO 250
245 Z$=RIGHT$(STR$(Z),2)
250 PRINTTAB(1);P$Z$CHR$(145)CHR$(157)CHR$(32)
255 GOTO 180
260 :
265 FOR J=832 TO 959:READ Q:POKE J,Q:NEXT:POKE 2040,13:POKE 2041,14
270 FOR I=1 TO 14:T=T+40:FOR X=55510+T TO 55521+T:POKEX,0:POKEX-54272,160:NEXT
275 NEXT:RETURN
280 :
285 DATA 000,126,000,001,255,128,007,255,224,015,255,240,031,255,248,063
290 DATA 255,252,063,255,252,126,000,126,124,000,062,252,000,063,252,000
295 DATA 063,252,000,063,124,000,062,126,000,126,063,255,252,063,255,252
300 DATA 031,255,248,015,255,240,007,255,224,001,255,128,000,126,000,000
305 DATA 000,126,000,001,255,128,007,255,224,015,255,240,031,255,248,063
310 DATA 255,252,063,255,252,127,255,254,127,255,254,255,255,255,255,255
315 DATA 255,255,255,255,127,255,254,127,255,254,063,255,252,063,255,252
320 DATA 031,255,248,015,255,240,007,255,224,001,255,128,000,126,000,000